home *** CD-ROM | disk | FTP | other *** search
- #if(0)
- FTANGLE v1.40, created with UNIX on "Saturday, October 30, 1993 at 13:10." \
- COMMAND LINE: "web/ftangle web/t_type -A -# --F -= 1.40/web/t_type.h" \
- RUN TIME: "Saturday, October 30, 1993 at 13:15." \
- WEB FILE: "web/t_type.web" \
- CHANGE FILE: (none)
- #endif
- #define OUT_CHAR(c)out_char((eight_bits)(c))/* Cast avoids warning messages. */ \
-
-
-
- #include "s_type.h" /* Prototypes for \.{style.web}. */
- #include "r_type.h" /* Prototypes for \.{ratfor.web}. */
- #include "e_type.h" /* Prototypes for \.{eval.web}. */
- #include "m_type.h" /* Prototypes for \.{macs.web}. */
-
- X_FCN x_unroll PROTO((VOID));
-
- SRTN app_aconst PROTO((outer_char fmt_char,boolean leading_zero));
- SRTN app_converted PROTO((unsigned long n));
- SRTN app_dmacro PROTO((CONST eight_bits HUGE*p,CONST eight_bits HUGE*p1));
- name_pointer app_macro PROTO((eight_bits last_control));
- BP HUGE*b_link PROTO((TRUNC HUGE*s,LANGUAGE Language,
- CONST ASCII HUGE*p0,CONST ASCII HUGE*p1));
- SRTN blank_out PROTO((int n));
- SRTN buffer_out PROTO((outer_char c));
- SRTN C_out PROTO((outer_char HUGE*buffer,outer_char HUGE*p,
- outer_char HUGE*HUGE*ppC_buffer,
- outer_char*end_str,outer_char begin_char,int indent));
- SRTN C_putc PROTO((outer_char c));
- SRTN C_sprintf PROTO((CONST outer_char s[],int n ELLIPSIS));
- SRTN close0 PROTO((OPEN_FILE*f));
- SRTN close_out PROTO((FILE*fp));
- SRTN cmp_outfiles PROTO((VOID));
- int cmpr_bp PROTO((BP HUGE**bb0,BP HUGE**bb1));
- int cmpr_trunc PROTO((TRUNC HUGE**t0,TRUNC HUGE**t1));
- SRTN copy_string PROTO((eight_bits a0));
- SRTN cp_ASCII PROTO((VOID));
- eight_bits out_bracket PROTO((eight_bits cur_char,eight_bits new_char));
- SRTN flush0 PROTO((VOID));
- SRTN flush_out PROTO((boolean prn_new_line));
- int get_constant PROTO((eight_bits HUGE*e));
- GOTO_CODE get_control_code PROTO((VOID));
- eight_bits get_next PROTO((VOID));
- int id PROTO((int n));
- name_pointer id0_lookup PROTO((CONST ASCII HUGE*start,CONST ASCII HUGE*end,
- LANGUAGE l));
- SRTN ini_special_tokens PROTO((LANGUAGE language0,SPEC HUGE*tokens));
- SRTN ini_univ_tokens PROTO((LANGUAGE language0));
- SRTN ins_ln_no PROTO((VOID));
- boolean is_deferred PROTO((sixteen_bits cur_val));
- int main PROTO((int ac,outer_char**av));
- SRTN mcheck0 PROTO((unsigned long n,CONST outer_char reason[]));
- SRTN mcopy PROTO((CONST outer_char*s));
- SRTN new_out PROTO((boolean scope,sixteen_bits a));
- eight_bits next_byte PROTO((VOID));
- SRTN not_unique PROTO((VOID));
- SRTN open_out PROTO((CONST outer_char*msg,boolean global_scope));
- LANGUAGE opn_output_file PROTO((LANGUAGE language0));
- eight_bits out_char PROTO((eight_bits cur_char));
- eight_bits out_dflt PROTO((eight_bits c));
- SRTN out_of_order PROTO((CONST outer_char cmd[]));
- SRTN out_op PROTO((CONST outer_char HUGE*s));
- SRTN out_str PROTO((CONST outer_char HUGE*s));
- SRTN out_trunc PROTO((CONST name_pointer np));
- SRTN out_version PROTO((CONST outer_char*msg));
- SRTN phase1 PROTO((VOID));
- SRTN phase2 PROTO((VOID));
- boolean pop_level PROTO((VOID));
- SRTN prn_mod_num PROTO((outer_char*fmt,long val));
- GOTO_CODE prs_TeX_code PROTO((VOID));
- GOTO_CODE prs_regular_code PROTO((GOTO_CODE iswitch));
- SRTN push_level PROTO((name_pointer p,
- CONST eight_bits HUGE*b0,CONST eight_bits HUGE*b1));
- SRTN RAT_out PROTO((outer_char c));
- SRTN rdc_char_constant PROTO((VOID));
- int rst_out PROTO((boolean continuation));
- TRUNC HUGE*s_link PROTO((TRUNC HUGE*s,CONST ASCII HUGE*id,
- unsigned short len));
- eight_bits HUGE*save_out PROTO((eight_bits HUGE**p,
- int nmax,eight_bits r_before,eight_bits r_after));
- SRTN scan_module PROTO((VOID));
- SRTN scan_repl PROTO((eight_bits t,boolean stop));
- SRTN scan_text PROTO((int text_type,CONST name_pointer p,boolean expand));
- int see PROTO((CONST ASCII HUGE*c0,CONST ASCII HUGE*c1));
- SRTN see_dup PROTO((CONST TRUNC HUGE*s,LANGUAGE Language,
- BP HUGE*HUGE*bb0));
- SRTN see_id PROTO((CONST ASCII HUGE*start,CONST ASCII HUGE*end));
- SRTN see_tstatistics PROTO((VOID));
- SRTN send_single PROTO((sixteen_bits a));
- LANGUAGE set_output_file PROTO((LANGUAGE language0));
- eight_bits skip_ahead PROTO((eight_bits last_control,boolean skip_over_bars));
- eight_bits skip_bars PROTO((VOID));
- boolean skip_comment PROTO((VOID));
- SRTN split_C PROTO((VOID));
- SRTN split_X PROTO((VOID));
- SRTN split0_C PROTO((outer_char HUGE*p));
- #ifdef _FTANGLE_h
- SRTN store PROTO((TEXT_BUF HUGE*t,outer_char c));
- #endif
- SRTN store_two_bytes PROTO((sixteen_bits x));
- SRTN to_else PROTO((VOID));
- SRTN to_endif PROTO((int m_case));
- unsigned trunc_id PROTO((CONST name_pointer np0));
- SRTN unwind PROTO((VOID));
- boolean valid_char PROTO((ASCII c,int l));
- eight_bits x_identifier PROTO((eight_bits cur_char));
-
-
-